home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / games / fibsw130.zip / PORTAL.SCC < prev    next >
Text File  |  1994-05-31  |  3KB  |  87 lines
  1. @echo 0 ;%%Portal hosted connection to FIBS.
  2. @rem ****************************************************************************
  3. @rem ****                                                                   *****
  4. @rem ****     Portal login Script                                           *****
  5. @rem ****     (thanks to Don Rudolph)                                       *****
  6. @rem ****                                                                   *****
  7. @rem ****************************************************************************
  8.  
  9. @echo "\r\n** Connecting to FIBS via *PORTAL* \r\n"
  10. @board 0
  11.  
  12. @rem *****************************************************
  13. @rem ***  Dial the Telephone Number                     **
  14. @rem *****************************************************
  15.  
  16.  
  17. @rem Execute dial.scr file to dial the telephone number.
  18. <dial.scr
  19.  
  20. @rem *****************************************************
  21. @rem ***  Execute the login procedure                   **
  22. @rem *****************************************************
  23.  
  24. @if "%HostLoginName%" != ""
  25. @:RetryLogin
  26. @   echo "\r\n** Logging in...\r\n"
  27. @   if "%NetworkScript%" == "manual.scn"
  28. @       wait "help:"  ; wait indefinitely if manual network connect.
  29. @   else 
  30. @       if not @wait "help:" 10
  31. @           echo "\r\n ------ Waiting for 'help:' ------\r\n"
  32. @           send "\r"
  33. @           goto RetryLogin
  34. @       endif
  35. @   endif
  36. @   send "online\r"
  37. @   if not @wait "HELP:" 15
  38. @      echo "\r\n** Error(portal.scc): Login prompt not received\r\n"
  39. <
  40. @   endif          
  41. @   send "%HostLoginName%\r"
  42. @   wait "\n" 15
  43. @   if "%HostPassword%" != ""
  44. @       if not @wait "word:" 15
  45. @          echo "\r\n** Error(portal.scc): Password prompt not received\r\n"
  46. <
  47. @       endif
  48. @       send "%HostPassword%\r"
  49. @       wait "\n"
  50. @       wait "ontinue" 15 ; wait for the motd.
  51. @   else ; manual password entry
  52. @       echo "\r\n** Automated login script will resume after you enter your password\r\n"
  53. @       if not @wait "word:" 30
  54. @          echo "\r\n** Error(portal.scc): Host password prompt not received\r\n"
  55. <
  56. @       endif
  57. @       passwordEntry 1
  58. @       wait "\n" 
  59. @       passwordEntry 0
  60. @       wait "ontinue" ; wait indefinitely for contine message
  61. @   endif
  62. @else 
  63. @   echo "\r\n** Automated login script will resume after login is complete\r\n"
  64. @   wait "HELP:"    ; clear login prompt
  65. @   passwordEntry 1
  66. @   wait "word:"    ; clear password prompt
  67. @   passwordEntry 0
  68. @   wait "ontinue"  ; wait indefinitely for continue message
  69. @endif ; HostLoginName
  70.  
  71. @rem *****************************************************
  72. @rem *** Get to telnet via menus                       ***
  73. @rem *****************************************************
  74.  
  75. @send "\r"    ; in response to "continue" message
  76. @wait "Command:" 15
  77. @send "go internet\r"
  78. @wait "Command:" 15
  79. @send "10\r"
  80.  
  81. @rem *****************************************************
  82. @rem *** Connect via telnet                            ***
  83. @rem *****************************************************
  84.  
  85. <telnet.scr
  86.  
  87.